/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / database / vicinity / !Vicinity / Auto / Extended / Encrypt

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3e f4 20 45 78 | 4f 72 20 45 6e 63 72 79 |...>. Ex|Or Encry|
|00000010| 70 74 69 6f 6e 21 64 6f | 20 61 20 73 69 6d 70 6c |ption!do| a simpl|
|00000020| 65 20 65 6e 63 72 79 70 | 74 69 6f 6e 20 66 6f 72 |e encryp|tion for|
|00000030| 20 73 6f 6d 65 20 73 65 | 63 75 72 69 74 79 0d 00 | some se|curity..|
|00000040| 14 0e f4 20 3e 45 6e 63 | 72 79 70 74 0d 00 1e 17 |... >Enc|rypt....|
|00000050| f4 20 4a 75 67 67 6c 65 | 72 2c 20 62 79 20 45 4f |. Juggle|r, by EO|
|00000060| 52 20 31 0d 00 28 0c ee | 85 f6 3a f1 9e 3a e0 0d |R 1..(..|..:..:..|
|00000070| 00 32 05 3a 0d 00 3c 24 | f2 69 6e 69 74 5f 61 72 |.2.:..<$|.init_ar|
|00000080| 67 73 28 22 72 65 63 73 | 2f 65 2c 64 61 74 61 2f |gs("recs|/e,data/|
|00000090| 65 2c 69 6e 66 6f 22 29 | 0d 00 46 05 3a 0d 00 50 |e,info")|..F.:..P|
|000000a0| 1f 72 65 63 6f 72 64 73 | 25 3d a4 61 72 67 73 5f |.records|%=.args_|
|000000b0| 65 76 61 6c 28 22 72 65 | 63 73 22 29 0d 00 5a 20 |eval("re|cs")..Z |
|000000c0| 76 69 63 69 6e 69 74 79 | 25 3d a4 61 72 67 73 5f |vicinity|%=.args_|
|000000d0| 65 76 61 6c 28 22 64 61 | 74 61 22 29 0d 00 64 1c |eval("da|ta")..d.|
|000000e0| 69 6e 66 6f 24 3d a4 61 | 72 67 73 5f 74 65 78 74 |info$=.a|rgs_text|
|000000f0| 28 22 69 6e 66 6f 22 29 | 0d 00 6e 05 3a 0d 00 78 |("info")|..n.:..x|
|00000100| 15 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |... "Hou|rglass_O|
|00000110| 6e 22 0d 00 82 10 73 25 | 3d 76 69 63 69 6e 69 74 |n"....s%|=vicinit|
|00000120| 79 25 0d 00 8c 15 e3 20 | 69 25 3d 30 20 b8 20 72 |y%..... |i%=0 . r|
|00000130| 65 63 6f 72 64 73 25 0d | 00 96 30 20 c8 99 20 22 |ecords%.|..0 .. "|
|00000140| 48 6f 75 72 67 6c 61 73 | 73 5f 50 65 72 63 65 6e |Hourglas|s_Percen|
|00000150| 74 61 67 65 22 2c 69 25 | 2a 31 30 30 20 81 20 72 |tage",i%|*100 . r|
|00000160| 65 63 6f 72 64 73 25 0d | 00 a0 0f 20 e3 20 65 25 |ecords%.|... . e%|
|00000170| 3d 30 20 b8 20 36 0d 00 | aa 0b 20 20 6d 25 3d 73 |=0 . 6..|..  m%=s|
|00000180| 25 0d 00 b4 1c 20 20 c8 | 95 20 3f 6d 25 3e 33 31 |%....  .|. ?m%>31|
|00000190| 20 80 20 28 6d 25 2d 73 | 25 29 3c 33 36 0d 00 be | . (m%-s|%)<36...|
|000001a0| 12 20 20 20 3f 6d 25 3d | 3f 6d 25 20 82 20 31 0d |.   ?m%=|?m% . 1.|
|000001b0| 00 c8 0c 20 20 20 6d 25 | 2b 3d 31 0d 00 d2 07 20 |...   m%|+=1.... |
|000001c0| 20 ce 0d 00 dc 0c 20 20 | 73 25 2b 3d 33 36 0d 00 | .....  |s%+=36..|
|000001d0| e6 06 20 ed 0d 00 f0 05 | ed 0d 00 fa 16 c8 99 20 |.. .....|....... |
|000001e0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|000001f0| 01 04 1d 2a 53 65 74 20 | 56 69 63 69 6e 69 74 79 |...*Set |Vicinity|
|00000200| 24 41 6c 74 65 72 65 64 | 20 59 65 73 0d 01 0e 05 |$Altered| Yes....|
|00000210| e0 0d 01 18 05 3a 0d 01 | 22 27 dd 20 f2 69 6e 69 |.....:..|"'. .ini|
|00000220| 74 5f 61 72 67 73 28 74 | 6f 6b 65 6e 73 61 66 74 |t_args(t|okensaft|
|00000230| 65 72 62 61 73 69 63 71 | 75 69 74 24 29 0d 01 2c |erbasicq|uit$)..,|
|00000240| 0d ea 20 74 6f 6b 65 6e | 73 24 0d 01 36 13 de 20 |.. token|s$..6.. |
|00000250| 61 72 67 73 62 75 66 66 | 25 20 32 35 36 0d 01 40 |argsbuff|% 256..@|
|00000260| 1b 74 6f 6b 65 6e 73 24 | 3d 22 42 41 53 49 43 2c |.tokens$|="BASIC,|
|00000270| 71 75 69 74 2f 6b 73 22 | 0d 01 4a 44 e7 20 74 6f |quit/ks"|..JD. to|
|00000280| 6b 65 6e 73 61 66 74 65 | 72 62 61 73 69 63 71 75 |kensafte|rbasicqu|
|00000290| 69 74 24 3c 3e 22 22 20 | 8c 20 74 6f 6b 65 6e 73 |it$<>"" |. tokens|
|000002a0| 24 2b 3d 22 2c 22 2b 74 | 6f 6b 65 6e 73 61 66 74 |$+=","+t|okensaft|
|000002b0| 65 72 62 61 73 69 63 71 | 75 69 74 24 0d 01 54 28 |erbasicq|uit$..T(|
|000002c0| f2 61 72 67 73 5f 70 72 | 6f 63 65 73 73 28 61 72 |.args_pr|ocess(ar|
|000002d0| 67 73 62 75 66 66 25 2c | 32 35 36 2c 74 6f 6b 65 |gsbuff%,|256,toke|
|000002e0| 6e 73 24 29 0d 01 5e 05 | e1 0d 01 68 05 3a 0d 01 |ns$)..^.|...h.:..|
|000002f0| 72 20 dd 20 f2 61 72 67 | 73 5f 70 72 6f 63 65 73 |r . .arg|s_proces|
|00000300| 73 28 61 62 25 2c 61 6c | 25 2c 6b 64 24 29 0d 01 |s(ab%,al|%,kd$)..|
|00000310| 7c 09 ea 20 65 6e 25 0d | 01 86 18 c8 99 20 22 4f ||.. en%.|..... "O|
|00000320| 53 5f 47 65 74 45 6e 76 | 22 20 b8 20 65 6e 25 0d |S_GetEnv|" . en%.|
|00000330| 01 90 14 61 72 67 73 5f | 62 75 66 66 65 72 25 3d |...args_|buffer%=|
|00000340| 61 62 25 0d 01 9a 14 61 | 72 67 73 5f 6c 65 6e 67 |ab%....a|rgs_leng|
|00000350| 74 68 25 3d 61 6c 25 0d | 01 a4 14 61 72 67 73 5f |th%=al%.|...args_|
|00000360| 6b 65 79 64 65 66 24 3d | 6b 64 24 0d 01 ae 27 f2 |keydef$=|kd$...'.|
|00000370| 61 72 67 73 5f 70 72 6f | 63 65 73 73 67 69 76 65 |args_pro|cessgive|
|00000380| 6e 28 65 6e 25 2c 61 62 | 25 2c 61 6c 25 2c 6b 64 |n(en%,ab|%,al%,kd|
|00000390| 24 29 0d 01 b8 05 e1 0d | 01 c2 05 3a 0d 01 cc 29 |$)......|...:...)|
|000003a0| dd 20 f2 61 72 67 73 5f | 70 72 6f 63 65 73 73 67 |. .args_|processg|
|000003b0| 69 76 65 6e 28 65 6e 25 | 2c 61 62 25 2c 61 6c 25 |iven(en%|,ab%,al%|
|000003c0| 2c 6b 64 24 29 0d 01 d6 | 24 c8 99 20 22 4f 53 5f |,kd$)...|$.. "OS_|
|000003d0| 52 65 61 64 41 72 67 73 | 22 2c 6b 64 24 2c 65 6e |ReadArgs|",kd$,en|
|000003e0| 25 2c 61 62 25 2c 61 6c | 25 0d 01 e0 05 e1 0d 01 |%,ab%,al|%.......|
|000003f0| ea 05 3a 0d 01 f4 1e dd | 20 a4 61 72 67 73 5f 74 |..:.....| .args_t|
|00000400| 6f 6b 65 6e 28 61 62 25 | 2c 6b 64 24 2c 74 6b 24 |oken(ab%|,kd$,tk$|
|00000410| 29 0d 01 fe 0e ea 20 6b | 24 2c 6a 24 2c 6a 25 0d |)..... k|$,j$,j%.|
|00000420| 02 08 16 e7 20 a7 6b 64 | 24 2c 74 6b 24 29 3d 30 |.... .kd|$,tk$)=0|
|00000430| 20 8c 20 3d 30 0d 02 12 | 10 6a 24 3d a4 6c 6f 77 | . =0...|.j$=.low|
|00000440| 28 6b 64 24 29 0d 02 1c | 08 6a 25 3d 30 0d 02 26 |(kd$)...|.j%=0..&|
|00000450| 11 74 6b 24 3d a4 6c 6f | 77 28 74 6b 24 29 0d 02 |.tk$=.lo|w(tk$)..|
|00000460| 30 0f c8 95 20 a7 6a 24 | 2c 22 2c 22 29 0d 02 3a |0... .j$|,",")..:|
|00000470| 17 20 6b 24 3d c0 6a 24 | 2c a7 6a 24 2c 22 2c 22 |. k$=.j$|,.j$,","|
|00000480| 29 2d 31 29 0d 02 44 1d | 20 e7 20 a7 6b 24 2c 74 |)-1)..D.| . .k$,t|
|00000490| 6b 24 29 20 8c 20 3d 61 | 62 25 21 28 6a 25 2a 34 |k$) . =a|b%!(j%*4|
|000004a0| 29 0d 02 4e 17 20 6a 24 | 3d c1 6a 24 2c a7 6a 24 |)..N. j$|=.j$,.j$|
|000004b0| 2c 22 2c 22 29 2b 31 29 | 0d 02 58 0a 20 6a 25 2b |,",")+1)|..X. j%+|
|000004c0| 3d 31 0d 02 62 05 ce 0d | 02 6c 1c e7 20 a7 6a 24 |=1..b...|.l.. .j$|
|000004d0| 2c 74 6b 24 29 20 8c 20 | 3d 61 62 25 21 28 6a 25 |,tk$) . |=ab%!(j%|
|000004e0| 2a 34 29 0d 02 76 06 3d | 30 0d 02 80 05 3a 0d 02 |*4)..v.=|0....:..|
|000004f0| 8a 22 dd 20 a4 61 72 67 | 73 5f 74 6f 6b 65 6e 74 |.". .arg|s_tokent|
|00000500| 65 78 74 28 61 62 25 2c | 6b 64 24 2c 74 6b 24 29 |ext(ab%,|kd$,tk$)|
|00000510| 0d 02 94 0b ea 20 6d 25 | 2c 74 24 0d 02 9e 1f 6d |..... m%|,t$....m|
|00000520| 25 3d a4 61 72 67 73 5f | 74 6f 6b 65 6e 28 61 62 |%=.args_|token(ab|
|00000530| 25 2c 6b 64 24 2c 74 6b | 24 29 0d 02 a8 21 e7 20 |%,kd$,tk|$)...!. |
|00000540| 28 6d 25 80 26 46 46 30 | 30 30 30 30 30 29 20 84 |(m%.&FF0|00000) .|
|00000550| 20 6d 25 3d 30 20 8c 20 | 3d 22 22 0d 02 b2 09 74 | m%=0 . |=""....t|
|00000560| 24 3d 22 22 0d 02 bc 0d | c8 95 20 3f 6d 25 3e 33 |$=""....|.. ?m%>3|
|00000570| 31 0d 02 c6 0d 20 74 24 | 2b 3d bd 3f 6d 25 0d 02 |1.... t$|+=.?m%..|
|00000580| d0 0a 20 6d 25 2b 3d 31 | 0d 02 da 05 ce 0d 02 e4 |.. m%+=1|........|
|00000590| 07 3d 74 24 0d 02 ee 05 | 3a 0d 02 f8 22 dd 20 a4 |.=t$....|:...". .|
|000005a0| 61 72 67 73 5f 74 6f 6b | 65 6e 65 76 61 6c 28 61 |args_tok|eneval(a|
|000005b0| 62 25 2c 6b 64 24 2c 74 | 6b 24 29 0d 03 02 0b ea |b%,kd$,t|k$).....|
|000005c0| 20 6d 25 2c 74 24 0d 03 | 0c 1f 6d 25 3d a4 61 72 | m%,t$..|..m%=.ar|
|000005d0| 67 73 5f 74 6f 6b 65 6e | 28 61 62 25 2c 6b 64 24 |gs_token|(ab%,kd$|
|000005e0| 2c 74 6b 24 29 0d 03 16 | 20 e7 20 28 6d 25 80 26 |,tk$)...| . (m%.&|
|000005f0| 46 46 30 30 30 30 30 30 | 29 20 84 20 6d 25 3d 30 |FF000000|) . m%=0|
|00000600| 20 8c 20 3d 30 0d 03 20 | 09 6d 25 2b 3d 31 0d 03 | . =0.. |.m%+=1..|
|00000610| 2a 08 3d 21 6d 25 0d 03 | 34 05 3a 0d 03 3e 44 dd |*.=!m%..|4.:..>D.|
|00000620| 20 a4 61 72 67 73 5f 74 | 65 78 74 28 74 6b 24 29 | .args_t|ext(tk$)|
|00000630| 3d a4 61 72 67 73 5f 74 | 6f 6b 65 6e 74 65 78 74 |=.args_t|okentext|
|00000640| 28 61 72 67 73 5f 62 75 | 66 66 65 72 25 2c 61 72 |(args_bu|ffer%,ar|
|00000650| 67 73 5f 6b 65 79 64 65 | 66 24 2c 74 6b 24 29 0d |gs_keyde|f$,tk$).|
|00000660| 03 48 05 3a 0d 03 52 44 | dd 20 a4 61 72 67 73 5f |.H.:..RD|. .args_|
|00000670| 65 76 61 6c 28 74 6b 24 | 29 3d a4 61 72 67 73 5f |eval(tk$|)=.args_|
|00000680| 74 6f 6b 65 6e 65 76 61 | 6c 28 61 72 67 73 5f 62 |tokeneva|l(args_b|
|00000690| 75 66 66 65 72 25 2c 61 | 72 67 73 5f 6b 65 79 64 |uffer%,a|rgs_keyd|
|000006a0| 65 66 24 2c 74 6b 24 29 | 0d 03 5c 05 3a 0d 03 66 |ef$,tk$)|..\.:..f|
|000006b0| 0e dd 20 a4 6d 74 78 28 | 6d 25 29 0d 03 70 08 ea |.. .mtx(|m%)..p..|
|000006c0| 20 74 24 0d 03 7a 09 74 | 24 3d 22 22 0d 03 84 0d | t$..z.t|$=""....|
|000006d0| c8 95 20 3f 6d 25 3e 33 | 31 0d 03 8e 0d 20 74 24 |.. ?m%>3|1.... t$|
|000006e0| 2b 3d bd 3f 6d 25 0d 03 | 98 0a 20 6d 25 2b 3d 31 |+=.?m%..|.. m%+=1|
|000006f0| 0d 03 a2 05 ce 0d 03 ac | 07 3d 74 24 0d 03 b6 05 |........|.=t$....|
|00000700| 3a 0d 03 c0 0e dd 20 a4 | 6c 6f 77 28 74 24 29 0d |:..... .|low(t$).|
|00000710| 03 ca 0b ea 20 70 25 2c | 63 25 0d 03 d4 10 e3 20 |.... p%,|c%..... |
|00000720| 70 25 3d 31 20 b8 20 a9 | 74 24 0d 03 de 12 20 63 |p%=1 . .|t$.... c|
|00000730| 25 3d 97 c1 74 24 2c 70 | 25 2c 31 29 0d 03 e8 23 |%=..t$,p|%,1)...#|
|00000740| 20 e7 20 63 25 3e 3d 97 | 22 41 22 20 80 20 63 25 | . c%>=.|"A" . c%|
|00000750| 3c 3d 97 22 5a 22 20 8c | 20 63 25 2b 3d 33 32 0d |<=."Z" .| c%+=32.|
|00000760| 03 f2 12 20 c1 74 24 2c | 70 25 2c 31 29 3d bd 63 |... .t$,|p%,1)=.c|
|00000770| 25 0d 03 fc 05 ed 0d 04 | 06 07 3d 74 24 0d ff    |%.......|..=t$.. |
+--------+-------------------------+-------------------------+--------+--------+